home *** CD-ROM | disk | FTP | other *** search
/ Ian & Stuart's Australian Mac 1 / Ian and Stuart's One (Australia).iso / Awards / MacUser Shareware Awards 94 / System Enhancements / 1. KeyQuencer 1.2 / Developer’s toolkit / Extension code / Extension.c < prev    next >
C/C++ Source or Header  |  1994-07-15  |  1KB  |  47 lines
  1. //==============================================================================
  2. // DOCUMENTATION AVAILABLE IN THE EXTENSION.H AND ACTION.H HEADERS
  3.  
  4. #include "A4Globals.h"
  5. #include "Extension.h"
  6. #include "Action.h"
  7.  
  8. //==============================================================================
  9. // MAIN ENTRY POINT AND MESSAGE DISPATCHER
  10.  
  11. pascal short main(long message, ParamsPtr params, MachineHandle mac, GluePtr glue)
  12. {
  13.     long    world;
  14.     short    error;
  15.     
  16.     MAIN_SETUP_GLOBALS(world);
  17.     switch(message)
  18.     {
  19.         case kExtMessageRun:
  20.             error = run(params, mac, glue);
  21.             break;
  22.         case kExtMessageInit:
  23.             error = init(mac, glue);
  24.             break;
  25.     }
  26.     MAIN_RESTORE_GLOBALS(world);
  27.     return error;
  28. }
  29.  
  30. //==============================================================================
  31. // GLOBAL STORAGE FOR TRAP PATCHES AND CALLBACKS (see Action.h)
  32.  
  33. long SetupExtensionWorld(void)
  34. {
  35.     long    world;
  36.     
  37.     TEMP_SETUP_GLOBALS(world);
  38.     return world;
  39. }
  40.  
  41. void RestoreExtensionWorld(long world)
  42. {
  43.     TEMP_RESTORE_GLOBALS(world);
  44. }
  45.  
  46. //==============================================================================
  47.